library(tidyverse)
── Attaching packages ─────────────────────────────────────────────────────────── tidyverse 1.2.1 ──
✔ ggplot2 3.1.0       ✔ purrr   0.3.2  
✔ tibble  2.1.1       ✔ dplyr   0.8.0.1
✔ tidyr   0.8.3       ✔ stringr 1.4.0  
✔ readr   1.3.1       ✔ forcats 0.4.0  
── Conflicts ────────────────────────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()
library(readxl)
preg_lung <- read_excel("H1N1_RNAseq_Allo_Preg_Cell_host_2017.xlsx", skip = 2)

-
/
                                                                                                  
preg_lung
LS0tCnRpdGxlOiAiTHVuZyBTY3JhcGluZyIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKYGBge3J9CmxpYnJhcnkodGlkeXZlcnNlKQpsaWJyYXJ5KHJlYWR4bCkKbGlicmFyeSh0aWR5cikKYGBgCgoKCmBgYHtyfQpkYXRhIDwtICByZWFkX2NzdigiTHVuZ19zY1JOQXNlcV9kYXRhX0pvc2hpXzIwMTguY3N2IikgJT4lIAogIHJlbmFtZShHZW5lID0gWDEpCgpJTV9kYXRhIDwtIGRhdGEgJT4lIAogIGZpbHRlcihzdHJfZGV0ZWN0KGNsdXN0ZXIsIklNIikpCgpJTV9kYXRhICU+JSAKICBmaWx0ZXIoc3RyX2RldGVjdChnZW5lLCAiSSIpKQpgYGAKCmBgYHtyfQpwcmVnX2x1bmcgPC0gcmVhZF9leGNlbCgiSDFOMV9STkFzZXFfQWxsb19QcmVnX0NlbGxfaG9zdF8yMDE3Lnhsc3giLCBza2lwID0gMikKCnByZWdfbHVuZwpgYGAKCmBgYHtyfQpwbG90IDwtIHByZWdfbHVuZyAlPiUKICBnYXRoZXIoLWBHZW5lIFN5bWJvbGAsIGtleSA9IENvbmRpdGlvbiwgdmFsdWUgPSBGQykgJT4lCiAgZ2dwbG90KGFlcyhgR2VuZSBTeW1ib2xgLEZDKSkgKwogIGdlb21fcG9pbnQoKSArCiAgZmFjZXRfd3JhcCh+Q29uZGl0aW9uKQoKcGxvdCAlPiUgCiAgcGxvdGx5OjpnZ3Bsb3RseSgpCiAgCmBgYAoK